home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / programming / e / unfinishedesrc / crapscroller.e < prev    next >
Text File  |  1999-01-25  |  1KB  |  66 lines
  1. ->By Ian Chapman
  2. ->A very old and simple scroller that doesn't work too well :0
  3.  
  4. MODULE  'intuition/screens'
  5.  
  6. CONST SWIDTH=640,
  7.       SHEIGHT=256,
  8.       CENY=124,
  9.       BLINE=50,
  10.       FLINE=206
  11.  
  12.  
  13. DEF scr:PTR TO screen,rast
  14.  
  15. PROC main()
  16.  
  17. IF (scr:=OpenS(640,256,8,$8000,'Wibbly Wobbly',NIL))<>NIL
  18.     SetColour(scr,0,0,0,0)
  19.     SetColour(scr,1,0,0,0)
  20.     SetColour(scr,2,255,255,255)
  21.     rast:=scr.rastport
  22.     Colour(2)
  23.     ctext('THIS ROUTINE WAS ORIGINALLY USED...',35,BLINE)
  24.     vanish('...IN ONE OF MY OLDEST...',25)
  25.     vanish('BBS ADVERTS. WHEN I HAD ONE! :(',31)
  26.     vanish(' ',1)
  27.     CloseS(scr)
  28.  
  29. ELSE
  30.     PrintF('Warning! Unable to open screen!\n')
  31. ENDIF
  32.  
  33. ENDPROC
  34.  
  35. PROC ctext(thetext,len,y)
  36. DEF x
  37. len:=len*8
  38. x:=(SWIDTH-len)/2
  39. TextF(x,y,thetext)
  40. ENDPROC
  41.  
  42. PROC scls()
  43. Move(rast,0,0)
  44. ClearScreen(rast)
  45. ENDPROC
  46.  
  47. PROC fliptext()
  48. Delay(100)
  49. scls()
  50. ENDPROC
  51.  
  52. PROC vanish(stext,len)
  53. DEF a,b
  54. Delay(100)
  55. FOR b:=1 TO 2
  56. FOR a:=1 TO 25
  57.  
  58. ScrollRaster(rast,0,-20,0,BLINE-8,SWIDTH,BLINE+180)
  59. ENDFOR
  60. ctext(stext,len,BLINE)
  61. ENDFOR
  62. ENDPROC
  63.  
  64.  
  65.  
  66.